home *** CD-ROM | disk | FTP | other *** search
/ SGI Performance Co-Pilot 1.3 / SGI Performance Co-Pilot 1.3.iso / dist / pcp.idb / usr / sbin / pmafm.z / pmafm
Text File  |  1997-04-03  |  11KB  |  536 lines
  1. #!/bin/sh
  2. #
  3. # Copyright 1995, Silicon Graphics, Inc.
  4. # ALL RIGHTS RESERVED
  5. # 
  6. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  7. # States.   Use of a copyright notice is precautionary only and does not
  8. # imply publication or disclosure.
  9. # 
  10. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  11. # Use, duplication or disclosure by the Government is subject to restrictions
  12. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  13. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  14. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  15. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  16. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  17. # 
  18. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  19. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  20. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  21. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  22. # GRAPHICS, INC.
  23. #
  24. # $Id: pmafm,v 2.2 1997/03/21 08:54:55 kenmcd Exp $
  25.  
  26.  
  27. _usage()
  28. {
  29.     echo "Usage: pmafm folioname [command [arg ...]]"
  30. }
  31.  
  32. _help()
  33. {
  34.     echo 'PCP Archive Folio Manager
  35.  
  36. Commands:
  37.   archives        - select all archives
  38.   archives N[,...]    - select archives with these ordinal numbers
  39.   archives name[,...]    - select archives with these names
  40.   check            - integrity check for folio
  41.   help            - this message
  42.   hosts         - select archives for all hosts (the default)
  43.   hosts hostname[,...]    - select archives for just these hosts
  44.   list [verbose]    - display folio contents
  45.   quit            - exit
  46.   remove        - echo the sh(1) command to delete all files
  47.               associated with the folio
  48.   repeat tool [arg ...]    - execute a known PCP tool on each archive in turn
  49.   replay        - replay archives using the tool that created the folio
  50.   [run] tool [arg ...]    - execute a known PCP tool on the selected archives
  51.   selections        - list selected archives
  52.   
  53. Selection:
  54.   If specified, both the "archives" and the "hosts" selection criteria
  55.   are applied as a conjunction.'
  56. }
  57.  
  58. if [ $# -lt 1 ]
  59. then
  60.     _usage
  61.     exit 1
  62. fi
  63.  
  64. if [ ! -f $1 ]
  65. then
  66.     if [ "X$1" = "X-?" ]
  67.     then
  68.     _usage
  69.     echo
  70.     _help
  71.     else
  72.     echo "pmafm: cannot open folio \"$1\""
  73.     fi
  74.     exit 1
  75. fi
  76.  
  77. _FOLIOPATH=`dirname $1`
  78. if [ "$_FOLIOPATH" = "." ]
  79. then
  80.     _FOLIOPATH=""
  81. elif [ -d $_FOLIOPATH ]
  82. then
  83.     _TMP=`pwd`
  84.     cd $_FOLIOPATH
  85.     _FOLIOPATH=`pwd`/
  86.     cd $_TMP
  87. fi
  88. _FOLIO="$1"
  89. _FOLIONAME=`basename $_FOLIO`
  90.  
  91. #
  92. # TODO ... when /etc/magic is safe, use file(1)
  93. if grep '^PCPFolio' $1 >/dev/null && grep '^Version:' $1 >/dev/null
  94. then
  95.     :
  96. else
  97.     echo "pmafm: \"${_FOLIOPATH}$_FOLIONAME\" is not in PCP archive folio format"
  98.     exit 1
  99. fi
  100.  
  101. _HOSTS=""
  102. _ALL_HOSTS=`nawk <$_FOLIO '$1 == "Archive:" { printf " %s",$2 }'; echo | sort -u`
  103. _ARCHIVES=""
  104. _ALL_ARCHIVES=`nawk <$_FOLIO '$1 == "Archive:" { printf " %s",$3 }'; echo`
  105. _DEBUG=false
  106. export _DEBUG _FOLIO _HOSTS _ALL_HOSTS _ARCHIVES _ALL_ARCHIVES
  107.  
  108. _SINGLE=""
  109. _MULTI=""
  110. _REPLAY=""
  111.  
  112. # collect names of known tools, and "run" scripts for each
  113. #
  114. for config in /var/pcp/config/pmafm/*
  115. do
  116.     if [ "$config" = '/var/pcp/config/pmafm/*' ]
  117.     then
  118.     echo "pmafm: Warning: no PCP tool configurations in /var/pcp/config/pmafm/"
  119.     else
  120.     SINGLE=""
  121.     MULTI=""
  122.     REPLAY=""
  123.     . $config
  124.     [ ! -z "$SINGLE" ] && _SINGLE="$_SINGLE $SINGLE"
  125.     [ ! -z "$MULTI" ] && _MULTI="$_MULTI $MULTI"
  126.     [ ! -z "$REPLAY" ] && _REPLAY="$_REPLAY $REPLAY"
  127.     fi
  128. done
  129.  
  130. tmp=/tmp/$$
  131. trap "rm -f $tmp; exit" 0 1 2 3 15
  132.  
  133. _check_file()
  134. {
  135.     if [ ! -f "$1" ]
  136.     then
  137.     echo "No such file: $1" >>$tmp
  138.     else
  139.     dd ibs=1 count=7 if="$1" 2>/dev/null | od -X | nawk '
  140. NR == 1 && $2 == "00000084" && $3 == "50052600" { exit 0 }
  141.                         { exit 1 }'
  142.     if [ $? -eq 0 ]
  143.     then
  144.         :
  145.     else
  146.         echo "Not a PCP archive file: $1" >>$tmp
  147.     fi
  148.     fi
  149. }
  150.  
  151. _check()
  152. {
  153.     sed -n '/^Archive:/p' <$_FOLIO \
  154.     | while read xxx host arch
  155.     do
  156.     rm -f $tmp
  157.     path=`_fix_arch_path "" $arch`
  158.     echo "Archive: $path ... \c"
  159.     _check_file $path.index
  160.     _check_file $path.meta
  161.     _check_file $path.0
  162.     if [ ! -s $tmp ]
  163.     then
  164.         realhost=`pmdumplog -l $path | sed -n -e '/^Performance metrics/s/.* host //p'`
  165.         [ "X$host" != "X$realhost" ] && \
  166.         echo "Hostname mismatch: folio=$host archive=$realhost" >>$tmp
  167.     fi
  168.     if [ -s $tmp ]
  169.     then
  170.         echo "Errors"
  171.         sed -e 's/^/    /' $tmp
  172.     else
  173.         echo "OK"
  174.     fi
  175.     done
  176. }
  177.  
  178. _dir()
  179. {
  180.     echo
  181.     echo "PCP Archive Folio: $_FOLIONAME"
  182.     [ ! -z "$_FOLIOPATH" ] && echo "Folio Directory: $_FOLIOPATH"
  183.     nawk <$_FOLIO '
  184. $1 == "Created:"    { print; next }
  185. $1 == "Creator:"    { print; next }'
  186.     echo
  187.     echo "Ordinal Hostname             Archive Basename"
  188.     i=1
  189.     sed -n '/^Archive:/p' $_FOLIO \
  190.     | while read xxx host archive
  191.     do
  192.     printf "  [%3s] %-20s %s\n" $i $host $archive
  193.     [ "X$1" = "Xverbose" ] && pmdumplog -l `_fix_arch_path "" $archive` | sed -e 's/^/    /'
  194.     i=`expr $i + 1`
  195.     done
  196. }
  197.  
  198. # $1 is separater
  199. #
  200. _fix_arch_path()
  201. {
  202.     sep="$1"
  203.     shift
  204.     archlist=""
  205.     for arch
  206.     do
  207.     if [ ! -z "$_FOLIOPATH" ]
  208.     then
  209.         case $arch
  210.         in
  211.         /*)
  212.             ;;
  213.         *)
  214.             arch=${_FOLIOPATH}$arch
  215.             ;;
  216.         esac
  217.     fi
  218.     if [ -z "$archlist" ]
  219.     then
  220.         archlist="${arch}"
  221.     else
  222.         archlist="${archlist}${sep}${arch}"
  223.     fi
  224.     done
  225.  
  226.     echo $archlist
  227. }
  228.  
  229. _get_archlist()
  230. {
  231.     if [ -z "$_ARCHIVES" ]
  232.     then
  233.     archlist="$_ALL_ARCHIVES"
  234.     else
  235.     archlist="$_ARCHIVES"
  236.     fi
  237.  
  238.     if [ ! -z "$_HOSTS" ]
  239.     then
  240.     newlist=""
  241.     for arch in $archlist
  242.     do
  243.         host=`nawk <$_FOLIO '$3 == "'$arch'" { print $2; exit }'`
  244.         if echo "$_HOSTS " | grep " $host " >/dev/null
  245.         then
  246.         newlist="$newlist $arch"
  247.         fi
  248.     done
  249.     archlist=$newlist
  250.     fi
  251.  
  252.     echo $archlist
  253. }
  254.  
  255. _replay()
  256. {
  257.     _CREATOR=""
  258.     _REPLAY_CONFIG=""
  259.     eval `sed -n <$_FOLIO -e '/^Creator:/{
  260. s/Creator:[     ]*//
  261. s/^/_CREATOR=/
  262. s/[     ][     ]*/ _REPLAY_CONFIG=/
  263. p
  264. }'`
  265.     if [ -z "$_CREATOR" ]
  266.     then
  267.     echo "Error: cannot determine folio creator"
  268.     return
  269.     else
  270.     if [ ! -z "$_REPLAY_CONFIG" ]
  271.     then
  272.         _REPLAY_CONFIG=`_fix_arch_path "" "$_REPLAY_CONFIG"`
  273.         echo "Configuration File: $_REPLAY_CONFIG"
  274.         if [ ! -f "$_REPLAY_CONFIG" ]
  275.         then
  276.         echo "Error: cannot find Configuration File"
  277.         return
  278.         fi
  279.     fi
  280.     fi
  281.  
  282.     if echo "$_REPLAY " | grep " $_CREATOR " >/dev/null
  283.     then
  284.     _run $_CREATOR -c $_REPLAY_CONFIG
  285.     else
  286.     echo "Error: I don't know how to replay a folio created by \"$_CREATOR\""
  287.     echo "       ... choose a PCP tool and use the \"run\" command to replay"
  288.     fi
  289. }
  290.  
  291. _known()
  292. {
  293.     echo "Known PCP tools:"
  294.     echo "$_SINGLE$_MULTI" \
  295.     | sed -e 's/^ *//' \
  296.     | tr ' ' '\012' \
  297.     | sort \
  298.     | fmt \
  299.     | sed -e 's/^/    /'
  300. }
  301.  
  302. _run()
  303. {
  304.     tool=$1
  305.     shift
  306.     archlist=`_get_archlist`
  307.     if [ -z "$archlist" ]
  308.     then
  309.     echo "Error: no selected archives"
  310.     return
  311.     fi
  312.  
  313.     if $_REPEAT || ( echo "$_SINGLE " | grep " $tool " >/dev/null )
  314.     then
  315.     n_arch=`echo $archlist | wc -w | sed -e 's/  *//g'`
  316.     [ "$n_arch" -gt 1 ] && echo "Note: running $tool serially, once per archive"
  317.     for arch in $archlist
  318.     do
  319.         nawk <$_FOLIO '$3 == "'$arch'" { printf "Host: %s",$2; exit }'
  320.         path=`_fix_arch_path "" "$arch"`
  321.         echo " Archive: $path"
  322.         # arrgh ... special case for pmdumplog where -a is something else
  323.         # and archive comes last ... sigh
  324.         #
  325.         case $tool
  326.         in
  327.         *pmdumplog*)
  328.             $tool $* $path
  329.             ;;
  330.         
  331.         *)
  332.             $tool -a $path $*
  333.             ;;
  334.         esac
  335.     done
  336.     elif echo "$_MULTI " | grep " $tool " >/dev/null
  337.     then
  338.     $tool -a `_fix_arch_path "," $archlist` $*
  339.     elif [ "X$tool" = "X_show_me_" ]
  340.     then
  341.     for arch in $archlist
  342.     do
  343.         path=`_fix_arch_path "" "$arch"`
  344.         echo "Archive: $path"
  345.     done
  346.     else
  347.     echo "Sorry, don't know how to run \"$tool\" ..."
  348.     fi
  349. }
  350.  
  351. _MORE=true
  352. while $_MORE
  353. do
  354.     if [ $# -gt 1 ]
  355.     then
  356.     shift
  357.     cmd="$1"
  358.     shift
  359.     args=$*
  360.     _MORE=false
  361.     else
  362.     echo "pmafm> \c"
  363.     read cmd args
  364.     if [ $? -ne 0 ]
  365.     then
  366.         echo
  367.         break
  368.     elif [ -z "$cmd" ]
  369.     then
  370.         continue
  371.     fi
  372.     fi
  373.  
  374.     _REPEAT=false
  375.     if echo "$_SINGLE $_MULTI " | grep " $cmd " >/dev/null
  376.     then
  377.     # recognized command
  378.     _run $cmd $args
  379.     else
  380.     case $cmd
  381.     in
  382.  
  383.         a|ar|arch|archi|archiv|archive|archives)
  384.             case $args
  385.             in
  386.             '')
  387.                 _ARCHIVES=""
  388.                 ;;
  389.             *)
  390.                 _ARCHIVES=""
  391.                 for arch in `echo $args | sed -e 's/,/ /g'`
  392.                 do
  393.                 _TMP=`nawk <$_FOLIO '
  394.     $1 == "Archive:"    { if ("'$arch'" == $3) {
  395.                 print $3
  396.                 exit
  397.                   }
  398.                   i++
  399.                   if ("'$arch'" == i) {
  400.                 print $3
  401.                 exit
  402.                   }
  403.                 }'`
  404.                 if [ -z "$_TMP" ]
  405.                 then
  406.                     echo "Warning: archive \"$arch\" not in folio ... ignored"
  407.                 else
  408.                     _ARCHIVES="$_ARCHIVES $_TMP"
  409.                 fi
  410.                 done
  411.                 ;;
  412.             esac
  413.             ;;
  414.  
  415.         c|ch|che|chec|check)
  416.             _check
  417.             ;;
  418.  
  419.         d|de|deb|debu|debug)
  420.             if $_DEBUG
  421.             then
  422.             _DEBUG=false
  423.             set -
  424.             else
  425.             _DEBUG=true
  426.             set -x
  427.             fi
  428.             ;;
  429.  
  430.         \?|he|hel|help)
  431.             _help
  432.             ;;
  433.  
  434.         ho|hos|host|hosts)
  435.             case $args
  436.             in
  437.             '')
  438.                 _HOSTS=""
  439.                 ;;
  440.             *)
  441.                 _HOSTS=""
  442.                 for host in `echo $args | sed -e 's/,/ /g'`
  443.                 do
  444.                 if echo "$_ALL_HOSTS " | grep " $host " >/dev/null
  445.                 then
  446.                     _HOSTS="$_HOSTS $host"
  447.                 else
  448.                     echo "Warning: host \"$host\" not in folio ... ignored"
  449.                 fi
  450.                 done
  451.                 ;;
  452.             esac
  453.             ;;
  454.  
  455.         l|li|lis|list)
  456.             case $args
  457.             in
  458.             v|ve|ver|verb|verbo|verbos|verbose)
  459.                 _dir verbose
  460.                 ;;
  461.             '')
  462.                 _dir
  463.                 ;;
  464.             *)
  465.                 echo "Illegal option \"$args\" ... ignored"
  466.                 _dir
  467.                 ;;
  468.             esac
  469.             [ ! -z "$_HOSTS" ] && echo "Host Selections:$_HOSTS"
  470.             [ ! -z "$_ARCHIVES" ] && echo "Archive Selections:$_ARCHIVES"
  471.             ;;
  472.  
  473.         q|qu|qui|quit)
  474.             break
  475.             ;;
  476.  
  477.         ru|run|repe|repea|repeat)
  478.             case $cmd
  479.             in
  480.             repe|repea|repeat)
  481.             _REPEAT=true
  482.             ;;
  483.             esac
  484.             tool=`echo "$args" | sed -e 's/ .*//'`
  485.             if [ -z "$tool" ]
  486.             then
  487.             echo "Error: missing PCP tool name"
  488.             _known
  489.             elif [ "X$tool" = 'X?' ]
  490.             then
  491.             _known
  492.             elif echo "$_SINGLE $_MULTI " | grep " $tool " >/dev/null
  493.             then
  494.             _run $args
  495.             else
  496.             echo "Error: Unknown PCP tool: $tool"
  497.             _known
  498.             fi
  499.             ;;
  500.  
  501.         rem|remo|remov|remove)
  502.             [ ! -z "$_FOLIOPATH" ] && echo "( cd $_FOLIOPATH; \c"
  503.             echo "rm -f $_FOLIONAME\c"
  504.             nawk <$_FOLIO '$1 == "Creator:" && NF > 2    { printf " %s",$3; exit }'
  505.             for arch in $_ALL_ARCHIVES
  506.             do
  507.             echo " $arch.meta $arch.index\c"
  508.             path=`_fix_arch_path "" $arch`
  509.             pmdumplog -t $path 2>/dev/null \
  510.             | nawk '/^[0-9][0-9]:/ { print $2 }' \
  511.             | sort -u \
  512.             | while read vol
  513.             do
  514.                 echo " $arch.$vol\c"
  515.             done
  516.             done
  517.             [ ! -z "$_FOLIOPATH" ] && echo " )\c"
  518.             echo
  519.             ;;
  520.  
  521.         repl|repla|replay)
  522.             _replay
  523.             ;;
  524.  
  525.         s|se|sel|sele|selec|select|selecti|selectio|selection|selections)
  526.             _run _show_me_
  527.             ;;
  528.  
  529.         *)
  530.             echo "Unknown command \"$cmd\" ... enter \"help\" for more information"
  531.             ;;
  532.     esac
  533.     fi
  534. done
  535.  
  536.